(delete-horizontal-space): Use prefix arg.

diff --git a/lisp/simple.el b/lisp/simple.el
index aa44fa382baee756944618d5c438ac79e7d12a27..2043a20cf9b5c2dab9a4a825e0c390ace657fe6e 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -707,7 +707,7 @@ Leave one space or none, according to the context."
 (defun delete-horizontal-space (&optional backward-only)
   "Delete all spaces and tabs around point.
 If BACKWARD-ONLY is non-nil, only delete spaces before point."
-  (interactive "*")
+  (interactive "*P")
   (let ((orig-pos (point)))
     (delete-region
      (if backward-only